home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / tttool30.arc / SAVEDTTT.DEM < prev    next >
Encoding:
Text File  |  1986-09-28  |  947 b   |  41 lines
  1. Program Illustrating_Screen_Saving;
  2.  
  3. {$I Decl.ttt}
  4. {$I Fastwrit.TTT}
  5.  
  6. {$I Window.TTT}
  7.  
  8. Procedure FillUpScreen(Character : char;F,B : byte);
  9. var I , J : integer;
  10. begin
  11. For I := 1 to 25 do
  12.  For J := 1 to 80 do
  13.   WriteAT(J,I,F,B,Character);
  14. end;
  15.  
  16. Procedure Pause;
  17. begin
  18. WriteCenter(25,red,white,' press any key to continue ... ');
  19. Read(Kbd,Ch);
  20. If keypressed then read(kbd,Ch);
  21. end;
  22.  
  23. begin
  24. Clrscr;
  25. FillupScreen('*',white,blue);
  26. GotoXY(80,25);                  {move the cursor to a unique location}
  27. WriteCenter(1,white,black,' This is screen 1 ');
  28. SaveScreen(1);
  29. Pause;
  30. FillupScreen('2',red,lightgray);
  31. SaveScreen(2);
  32. GotoXY(1,1);                    {put cursor in a different position}
  33. WriteCenter(1,white,lightgray,'Press space bar to restore original screen el quicko');
  34. pause;
  35. RestoreScreen(1);
  36. pause;
  37. clrscr;
  38. Writeln('Run DemoTTT.com for the main demo program');
  39. Write('Technojocks Turbo Toolkit');
  40. end.
  41.